/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / cert / trk3_eg / in_out / in_out.bas

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| fc 05 02 00 0f 00 5f 01 | 5f 01 09 00 01 02 03 04 |......_.|_.......|
|00000010| 06 0b 05 08 0a c0 11 c0 | 11 e6 01 00 00 1a 00 80 |........|........|
|00000020| 00 00 00 7e 01 22 01 e4 | 00 b8 00 7a 00 9d 00 72 |...~."..|...z...r|
|00000030| 01 92 00 ed 00 c5 01 03 | 01 00 00 de 01 00 00 af |........|........|
|00000040| 00 cd 00 c8 00 68 01 5a | 00 69 00 a9 00 8c 00 5f |.....h.Z|.i....._|
|00000050| 00 71 00 00 00 db 00 00 | 00 00 00 00 00 00 00 00 |.q......|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 e6 01 00 00 19 01 80 | 01 74 10 01 80 06 63 6f |........|.t....co|
|00000080| 6c 63 6e 74 00 00 80 04 | 73 74 68 72 00 00 80 05 |lcnt....|sthr....|
|00000090| 65 6e 64 68 72 9e 01 80 | 02 64 62 f4 00 00 08 64 |endhr...|.db....d|
|000000a0| 61 74 61 62 61 73 65 00 | 00 80 02 64 73 3b 01 00 |atabase.|...ds;..|
|000000b0| 07 64 79 6e 61 73 65 74 | 00 00 40 08 4c 6f 61 64 |.dynaset|..@.Load|
|000000c0| 67 72 69 64 00 00 00 02 | 74 62 00 00 00 05 74 61 |grid....|tb....ta|
|000000d0| 62 6c 65 fb 00 00 0c 43 | 72 65 61 74 64 79 6e 61 |ble....C|reatdyna|
|000000e0| 73 65 74 00 00 00 01 72 | 00 00 00 0a 46 72 61 6d |set....r|....Fram|
|000000f0| 65 5f 53 69 7a 65 00 00 | 00 05 46 6f 72 6d 32 00 |e_Size..|..Form2.|
|00000100| 00 00 05 47 72 69 64 31 | 4e 01 00 03 52 6f 77 45 |...Grid1|N...RowE|
|00000110| 01 00 03 43 6f 6c 00 00 | 00 04 54 65 78 74 61 01 |...Col..|..Texta.|
|00000120| 00 09 6c 73 74 75 64 65 | 6e 74 73 00 00 00 05 66 |..lstude|nts....f|
|00000130| 6f 72 6d 31 2f 01 00 05 | 44 61 74 61 31 58 01 00 |orm1/...|Data1X..|
|00000140| 09 52 65 63 6f 72 64 73 | 65 74 00 00 00 08 53 74 |.Records|et....St|
|00000150| 75 64 65 6e 74 73 d4 01 | 00 06 6c 74 65 73 74 31 |udents..|..ltest1|
|00000160| 90 01 00 05 54 65 73 74 | 31 84 01 00 06 6c 74 65 |....Test|1....lte|
|00000170| 73 74 32 00 00 00 05 54 | 65 73 74 32 00 00 00 03 |st2....T|est2....|
|00000180| 45 4f 46 00 00 80 06 49 | 4e 5f 4f 55 74 b7 01 80 |EOF....I|N_OUt...|
|00000190| 08 6c 61 73 74 6e 61 6d | 65 00 00 00 02 4c 4e aa |.lastnam|e....LN.|
|000001a0| 01 00 08 46 69 73 74 6e | 61 6d 65 00 00 80 0a 49 |...Fistn|ame....I|
|000001b0| 4e 5f 6f 75 74 46 6c 61 | 67 00 00 80 08 42 61 63 |N_outFla|g....Bac|
|000001c0| 6b 74 69 6d 65 00 00 80 | 09 46 69 72 73 74 6e 61 |ktime...|.Firstna|
|000001d0| 6d 65 bd 01 00 02 46 4e | 00 00 00 04 42 61 63 6b |me....FN|....Back|
|000001e0| 00 00 00 0b 6f 70 65 6e | 44 79 6e 61 73 65 74 00 |....open|Dynaset.|
|000001f0| 00 80 06 52 6f 77 63 6e | 74 00 00 00 04 52 6f 77 |...Rowcn|t....Row|
|00000200| 73 60 00 00 00 18 00 00 | 00 3b 01 00 00 16 01 18 |s`......|.;......|
|00000210| 00 16 00 07 00 09 00 0d | 00 5a 00 00 00 16 01 28 |........|.Z.....(|
|00000220| 00 16 00 01 00 0e 00 0d | 00 5f 00 00 00 1e 00 e4 |........|._......|
|00000230| 20 0c 00 69 00 00 00 1e | 00 e4 14 0c 00 71 00 00 | ..i....|.....q..|
|00000240| 00 16 01 4c 00 15 00 80 | 00 0a 00 0d 00 7a 00 00 |...L....|.....z..|
|00000250| 00 16 01 5c 00 15 00 92 | 00 0a 00 0d 00 8c 00 09 |...\....|........|
|00000260| 00 08 00 ff ff ff ff ff | ff ff ff 07 00 04 00 03 |........|........|
|00000270| 01 00 08 00 4c 6f 61 64 | 67 72 69 64 01 08 30 ce |....Load|grid..0.|
|00000280| 03 00 00 18 00 00 00 58 | 00 06 00 9d 00 00 01 00 |.......X|........|
|00000290| 00 00 00 ed 00 34 00 1c | 00 2f 00 43 3a 5c 61 61 |.....4..|./.C:\aa|
|000002a0| 61 6d 61 72 63 68 5c 6d | 73 75 5c 76 62 6d 73 75 |amarch\m|su\vbmsu|
|000002b0| 5c 65 78 61 6d 70 6c 65 | 5c 49 6e 5f 6f 75 74 5c |\example|\In_out\|
|000002c0| 49 4e 5f 4f 55 54 2e 6d | 64 62 00 1a 01 46 80 01 |IN_OUT.m|db...F..|
|000002d0| 00 0b 00 7a 00 33 01 00 | 00 0b 00 7a 00 65 00 ed |...z.3..|...z.e..|
|000002e0| 00 28 00 72 00 23 00 53 | 65 6c 65 63 74 20 2a 20 |.(.r.#.S|elect * |
|000002f0| 66 72 6f 6d 20 45 6d 70 | 6c 6f 79 65 65 73 20 6f |from Emp|loyees o|
|00000300| 72 64 65 72 20 62 79 20 | 4c 4e 00 1b 01 1a c0 01 |rder by |LN......|
|00000310| 00 0b 00 8c 00 33 01 00 | 00 00 00 fc 00 c8 00 16 |.....3..|........|
|00000320| 00 07 00 0d 00 0d 00 72 | 01 00 00 fc 00 d8 00 16 |.......r|........|
|00000330| 00 07 00 0e 00 0d 00 aa | 01 00 00 fc 00 e8 00 16 |........|........|
|00000340| 00 01 00 0f 00 0d 00 90 | 01 00 00 fc 00 f8 00 16 |........|........|
|00000350| 00 03 00 0d 00 0d 00 9e | 01 00 00 fc 00 08 01 16 |........|........|
|00000360| 00 01 00 0b 00 0d 00 d4 | 01 00 00 00 00 0b 00 8c |........|........|
|00000370| 00 65 00 1b 01 1f 00 00 | 00 78 00 00 00 00 10 0b |.e......|.x......|
|00000380| 00 8c 00 11 00 61 01 ee | 00 f4 00 31 00 00 04 00 |.....a..|...1....|
|00000390| 10 0b 00 d4 01 e4 04 a3 | 00 0c 00 d4 01 00 10 0b |........|........|
|000003a0| 00 d4 01 e4 04 a3 00 0b | 00 68 01 11 00 e4 00 12 |........|.h......|
|000003b0| 00 de 01 00 10 0b 00 d4 | 01 0b 00 68 01 11 00 e4 |........|...h....|
|000003c0| 00 12 00 ed 00 00 20 76 | 00 0f 00 08 00 47 65 74 |...... v|.....Get|
|000003d0| 20 6c 61 73 74 20 6e 61 | 6d 65 65 00 20 e4 08 0b | last na|mee. ...|
|000003e0| 00 68 01 11 00 e4 00 12 | 00 f4 00 00 20 0b 00 8c |.h......|.... ...|
|000003f0| 00 11 24 7e 01 0c 00 72 | 01 00 20 0b 00 72 01 0b |..$~...r|.. ..r..|
|00000400| 00 68 01 11 00 e4 00 12 | 00 fb 00 00 20 00 20 76 |.h......|.... . v|
|00000410| 00 10 00 08 00 47 65 74 | 20 66 69 72 73 74 20 6e |.....Get| first n|
|00000420| 61 6d 65 00 20 76 00 16 | 00 08 00 49 4e 5f 4f 55 |ame. v..|...IN_OU|
|00000430| 74 2e 47 72 69 64 31 2e | 43 6f 6c 20 3d 20 34 00 |t.Grid1.|Col = 4.|
|00000440| 20 76 00 13 00 08 00 46 | 69 72 73 74 6e 61 6d 65 | v.....F|irstname|
|00000450| 20 3d 20 64 73 21 46 4e | 00 00 20 76 00 1f 00 08 | = ds!FN|.. v....|
|00000460| 00 49 4e 5f 4f 55 74 2e | 47 72 69 64 31 2e 54 65 |.IN_OUt.|Grid1.Te|
|00000470| 78 74 20 3d 20 46 69 72 | 73 74 6e 61 6d 65 00 00 |xt = Fir|stname..|
|00000480| 00 00 20 76 00 13 00 08 | 00 47 65 74 20 49 6e 20 |.. v....|.Get In |
|00000490| 26 20 4f 75 74 20 46 6c | 61 67 20 00 20 0b 00 8c |& Out Fl|ag . ...|
|000004a0| 00 11 24 68 01 0c 00 90 | 01 00 20 0b 00 90 01 49 |..$h....|.. ....I|
|000004b0| 00 9c 02 76 00 13 00 1c | 00 54 72 75 65 20 69 73 |...v....|.True is|
|000004c0| 20 69 6e 20 6f 66 66 69 | 63 65 6e 00 30 e4 00 0b | in offi|cen.0...|
|000004d0| 00 68 01 11 00 e4 00 12 | 00 f4 00 00 20 32 00 b2 |.h......|.... 2..|
|000004e0| 02 00 30 e4 04 0b 00 68 | 01 11 00 e4 00 12 00 f4 |..0....h|........|
|000004f0| 00 00 20 38 00 00 20 0b | 00 90 01 0b 00 68 01 11 |.. 8.. .|.....h..|
|00000500| 00 e4 00 12 00 fb 00 00 | 00 00 20 76 00 10 00 08 |........|.. v....|
|00000510| 00 47 65 74 20 66 69 72 | 73 74 20 6e 61 6d 65 00 |.Get fir|st name.|
|00000520| 20 76 00 16 00 08 00 49 | 4e 5f 4f 55 74 2e 47 72 | v.....I|N_OUt.Gr|
|00000530| 69 64 31 2e 43 6f 6c 20 | 3d 20 34 00 1c 76 00 15 |id1.Col |= 4..v..|
|00000540| 00 07 00 20 42 61 63 6b | 74 69 6d 65 20 3d 20 64 |... Back|time = d|
|00000550| 73 21 42 61 63 6b 34 00 | 20 76 00 1e 00 08 00 49 |s!Back4.| v.....I|
|00000560| 4e 5f 4f 55 74 2e 47 72 | 69 64 31 2e 54 65 78 74 |N_OUt.Gr|id1.Text|
|00000570| 20 3d 20 42 61 63 6b 74 | 69 6d 65 00 00 00 20 00 | = Backt|ime... .|
|00000580| 20 76 00 39 00 08 00 49 | 66 20 69 74 27 73 20 6e | v.9...I|f it's n|
|00000590| 6f 74 20 74 68 65 20 6c | 61 73 74 20 69 74 65 72 |ot the l|ast iter|
|000005a0| 61 74 69 6f 6e 20 6f 66 | 20 74 68 69 73 20 6c 6f |ation of| this lo|
|000005b0| 6f 70 2c 20 61 74 74 65 | 6d 70 74 20 74 6f 6d 00 |op, atte|mpt tom.|
|000005c0| 20 76 00 3a 00 08 00 6d | 6f 76 65 20 74 6f 20 74 | v.:...m|ove to t|
|000005d0| 68 65 20 6e 65 78 74 20 | 72 65 63 6f 72 64 2e 20 |he next |record. |
|000005e0| 49 66 20 61 6e 20 65 72 | 72 6f 72 20 6f 63 63 75 |If an er|ror occu|
|000005f0| 72 73 2c 20 74 68 65 20 | 70 72 6f 67 72 61 6d 00 |rs, the |program.|
|00000600| 20 76 00 17 00 08 00 77 | 69 6c 6c 20 6c 65 61 76 | v.....w|ill leav|
|00000610| 65 20 74 68 69 73 20 6c | 6f 6f 70 2e 72 00 10 0b |e this l|oop.r...|
|00000620| 00 8c 00 65 00 1b 01 21 | 00 00 00 78 00 00 10 4a |...e...!|...x...J|
|00000630| 00 2c 01 00 00 0b 00 8c | 00 65 00 1b 01 1f 00 00 |.,......|.e......|
|00000640| 00 78 00 00 00 00 00 00 | 00 39 00 09 00 08 00 ff |.x......|.9......|
|00000650| ff ff ff ff ff ff ff 32 | 00 04 00 03 00 fd       |.......2|......  |
+--------+-------------------------+-------------------------+--------+--------+